cmpCaron["T"] := "{u+0164}" ; (Ť) T with caron
cmpCaron["u"] := "{u+01d4}" ; (ǔ) u with caron
cmpCaron["U"] := "{u+01d3}" ; (Ǔ) U with caron
-cmpCaron["v"] := "{u+01da}" ; (ǚ) u with diaeresis and caron
-cmpCaron["V"] := "{u+01d9}" ; (Ǚ) U with diaeresis and caron
cmpCaron["z"] := "{u+017e}" ; (ž) z with caron
cmpCaron["Z"] := "{u+017d}" ; (Ž) Z with caron
cmpCaron["3"] := "{u+01ef}" ; (ǯ) small letter ezh with caron
cmpMacronStroke["T"] := "{u+0166}" ; (Ŧ) T with stroke
cmpMacronStroke["u"] := "{u+016b}" ; (ū) u with macron
cmpMacronStroke["U"] := "{u+016a}" ; (Ū) U with macron
-cmpMacronStroke["v"] := "{u+01d6}" ; (ǖ) u with diaeresis and macron
-cmpMacronStroke["V"] := "{u+01d5}" ; (Ǖ) U with diaeresis and macron
cmpMacronStroke["y"] := "{u+0233}" ; (ȳ) y with macron
cmpMacronStroke["Y"] := "{u+0232}" ; (Ȳ) Y with macron
cmpMacronStroke["z"] := "{u+01b6}" ; (ƶ) z with stroke
cmpAcuteAccent["S"] := "{u+015a}" ; (Ś) S with acute
cmpAcuteAccent["u"] := "{u+00fa}" ; (ú) u with acute
cmpAcuteAccent["U"] := "{u+00da}" ; (Ú) U with acute
-cmpAcuteAccent["v"] := "{u+01d8}" ; (ǘ) u with diaeresis and acute
-cmpAcuteAccent["V"] := "{u+01d7}" ; (Ǘ) U with diaeresis and acute
cmpAcuteAccent["w"] := "{u+1e83}" ; (ẃ) w with acute
cmpAcuteAccent["W"] := "{u+1e82}" ; (Ẃ) W with acute
cmpAcuteAccent["y"] := "{u+00fd}" ; (ý) y with acute
cmpGraveAccent["O"] := "{u+00d2}" ; (Ò) O with grave
cmpGraveAccent["u"] := "{u+00f9}" ; (ù) u with grave
cmpGraveAccent["U"] := "{u+00d9}" ; (Ù) U with grave
-cmpGraveAccent["v"] := "{u+01dc}" ; (ǜ) u with diaeresis and grave
-cmpGraveAccent["V"] := "{u+01db}" ; (Ǜ) U with diaeresis and grave
cmpGraveAccent["w"] := "{u+1e81}" ; (ẁ) w with grave
cmpGraveAccent["W"] := "{u+1e80}" ; (Ẁ) W with grave
cmpGraveAccent["y"] := "{u+1ef3}" ; (ỳ) y with grave
global cmpSmallN := Map()
global cmpCapitalN := Map()
-global cmpSmallP := Map()
global cmpCapitalP := Map()
global cmpSmallR := Map()
global cmpAsterisk := Map()
cmpSmallN["o"] := "{u+2116}" ; (№) numero sign
cmpCapitalN["o"] := "{u+2116}" ; (№) numero sign
cmpRingAbove["x"] := "{u+00a4}" ; (¤) currency sign
-cmpSmallP["p"] := "{u+00b6}" ; (¶) pilcrow sign
+cmpSuperscript["p"] := "{u+00b6}" ; (¶) pilcrow sign
cmpCapitalP["P"] := "{u+00b6}" ; (¶) pilcrow sign
cmpSmallR["2"] := "{u+221a}" ; (√) square root
cmpSmallR["3"] := "{u+221b}" ; (∛) cube root
cmpAcuteAccent[">"] := "{u+203a}" ; (›) right-pointing single angle quotation mark
-; Compose : Letters with Two Accents
+; Compose : Letters with Two Diacritical Marks
global cmpCapitalU := Map()
cmpArrow[chr(34)] := "{u+01df}" ; (ǟ) a with diaeresis and macron
if cmpCapitalN.Has(ihB.Input)
Send cmpCapitalN[ihB.Input]
}
- else if (ihA.Input == "p") {
- if cmpSmallP.Has(ihB.Input)
- Send cmpSmallP[ihB.Input]
- }
else if (ihA.Input == "P") {
if cmpCapitalP.Has(ihB.Input)
Send cmpCapitalP[ihB.Input]